home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / Errors.cls < prev    next >
Text File  |  1997-06-14  |  1KB  |  56 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "GErrors"
  6. Attribute VB_GlobalNameSpace = True
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Option Explicit
  11.  
  12. #If fComponent Then
  13. Sub ErrRaise(e As Long)
  14.     MErrors.ErrRaise e
  15. End Sub
  16. #End If
  17.  
  18. Sub ApiRaiseIf(ByVal e As Long)
  19.     MErrors.ApiRaiseIf e
  20. End Sub
  21.  
  22. Sub ApiRaise(ByVal e As Long)
  23.     MErrors.ApiRaise e
  24. End Sub
  25.  
  26. Function ComToApi(ByVal e As Long) As Long
  27.     ComToApi = MErrors.ComToApi(e)
  28. End Function
  29.  
  30. Function ApiToCom(ByVal e As Long) As Long
  31.     ApiToCom = MErrors.ApiToCom(e)
  32. End Function
  33.  
  34. Function ComToApiStr(ByVal e As Long) As String
  35.     ComToApiStr = MErrors.ComToApiStr(e)
  36. End Function
  37.  
  38. Function ApiError(ByVal e As Long) As String
  39.     ApiError = MErrors.ApiError(e)
  40. End Function
  41.  
  42. Function LastApiError() As String
  43.     LastApiError = MErrors.LastApiError
  44. End Function
  45.  
  46. Function BasicError(ByVal e As Long) As Long
  47.     BasicError = MErrors.BasicError(e)
  48. End Function
  49.  
  50. Function COMError(e As Long) As Long
  51.     COMError = MErrors.COMError(e)
  52. End Function
  53. '
  54.  
  55.  
  56.